require(RJSONIO)
data(airquality)
s<-toJSON(airquality)
cat(s)
